From 53b199ee0eb781ab9fcefa68b82eda41f1440181 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 30 Jul 2002 06:35:38 +0000 Subject: [PATCH] (in-is13194): Give correct `safe-chars' property. (devanagari): Define it as an alias of in-is13194. --- lisp/language/indian.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/language/indian.el b/lisp/language/indian.el index 474ac74dd06..697d599ce60 100644 --- a/lisp/language/indian.el +++ b/lisp/language/indian.el @@ -34,10 +34,17 @@ "8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)." '(ascii indian-is13194 nil nil nil ascii-eol) - '((safe-charsets ascii indian-is13194) + `((safe-chars . ,(let ((table (make-char-table 'safe-chars nil))) + (set-char-table-range table 'indian-is13194 t) + (dotimes (i 127) + (aset table i t) + (aset table (decode-char 'ucs (+ #x900 i)) t)) + table)) (post-read-conversion . in-is13194-post-read-conversion) (pre-write-conversion . in-is13194-pre-write-conversion))) +(define-coding-system-alias 'devanagari 'in-is13194) + (defvar indian-script-table '[ devanagari -- 2.30.2